(Fwrite_region): Don't fail to set visit_file.

diff --git a/src/fileio.c b/src/fileio.c
index 69ad679fbf5639e62f626c054712f694e7d0574e..f9943927ca268102061d76369f9cfb06ec36cc80 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2506,7 +2506,7 @@ to the file, instead of any buffer contents, and END is ignored.")
 
   filename = Fexpand_file_name (filename, Qnil);
   if (XTYPE (visit) == Lisp_String)
-    visit = Fexpand_file_name (visit, Qnil);
+    visit_file = Fexpand_file_name (visit, Qnil);
   else
     visit_file = filename;